home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / open doslib.s < prev    next >
Text File  |  1995-03-17  |  247b  |  21 lines
  1. ; laden der dos-library
  2. execbase = 4
  3. openlib  = -408 
  4. open     = -30
  5.  
  6. start:
  7. move.l execbase,a6
  8. lea dosname,a1
  9. moveq #0,d0
  10. jsr openlib(a6)
  11. move.l d0,dosbase
  12. beq error
  13. error: 
  14. moveq #8,d0
  15. rts
  16. dosname:
  17. dc.b  "dos.library",0,0
  18. even
  19. dosbase:
  20. blk.l 1
  21.